home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sregexpf / buildnum.vbs < prev    next >
Encoding:
Text File  |  1998-05-02  |  939 b   |  31 lines
  1.  
  2. ' Check parameters
  3. if WScript.Arguments.Count < 1 then
  4.     WScript.Echo "Version Data File not given"
  5.     WScript.Quit
  6. end if
  7.  
  8. ' Update version info 
  9. dim ver
  10. set ver = WScript.CreateObject("ProjectBuilder.Versioner")
  11. ver.VersionFile = WScript.Arguments.Item(0)
  12. ver.IncrementBuildNum
  13. WScript.echo "Updating " + ver.VersionFile + "..."
  14. ver.UpdateVersionFile
  15.  
  16. ' Create file which is included into the RC2 file
  17. dim fs, f, fileName
  18. set fs = WScript.CreateObject("Scripting.FileSystemObject")
  19. fileName = ver.VersionFile + "h"
  20. if fs.FileExists(fileName) then
  21.     '  Delete old file
  22.     set f = fs.GetFile(fileName)
  23.     If f.Attributes and 1 then f.Attributes = f.Attributes - 1
  24.     WScript.echo "Deleting " + fileName + "..."
  25.     fs.DeleteFile fileName, true
  26. end if
  27. WScript.echo "Updating " + fileName + "..."
  28. fs.CopyFile ver.VersionFile, fileName
  29. set f = fs.GetFile(fileName)
  30. If f.Attributes and 1 then f.Attributes = f.Attributes - 1
  31.